home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / MENU.Q-A < prev    next >
Text File  |  1990-07-04  |  1KB  |  69 lines
  1.  
  2. :main
  3. clearscreen
  4. display "|"
  5. display " EXTENDED QUESTIONAIRE LANGUAGE DOOR|"
  6. display " -----------------------------------|"
  7. display "|"
  8. display "  < 1 >   Eql-door logo|"
  9. display "  < 2 >   Label demo|"
  10. display "  < 3 >   Level demo|"
  11. display "  < 4 >   Time demo|"
  12. display "  < 5 >   NewUser demo|"
  13. display "  < 6 >   BlackJack demo|"
  14. display "  < 7 >   Gamble demo|"
  15. display "|"
  16. display "  < Q >   Return to >> INTERFACE <<|"
  17. display "|"
  18. getchar 1
  19. :
  20.  
  21. if 1 = "1" 
  22. delete menu.asw
  23. start logo
  24. endif
  25.  
  26. if 1 = "2"
  27. delete menu.asw
  28. start label
  29. endif
  30.  
  31. if 1 = "3"
  32. delete menu.asw
  33. start level
  34. endif
  35.  
  36. if 1 = "4"
  37. delete menu.asw
  38. start time
  39. endif
  40.  
  41. if 1 = "5"
  42. delete menu.asw
  43. start user
  44. endif
  45.  
  46. if 1 = "6"
  47. delete menu.asw
  48. start blakjack
  49. endif
  50.  
  51. if 1 = "7"
  52. delete menu.asw
  53. start game
  54. endif
  55.  
  56. if 1 = "q"
  57. delete menu.asw
  58. quit
  59. endif
  60.  
  61. if 1 = "fake"
  62. display "|"
  63. display "Unknown Option, try again...|"
  64. display "|"
  65. display "Press <ENTER>"
  66. ask 0 15 
  67. gotolabel main
  68. endif
  69.